hashes is package{
  import treemap;
  
  -- trial data
  
  M is treemap of {("a",1); ("b",2); ("c",3)};
  
  main() do {
    logMsg(info,"M=$M");
    -- test indexable
    assert M["a"]=1;
    assert M["b"]=2;
    assert M["c"]=3;
    
    assert (M["d"] default nonInteger) = nonInteger;
    
    -- test sizeable
    assert size(M)=3;
    assert not isEmpty(M);
    
    -- test pPrint
    logMsg(info,"Showing M: $M");
    
    -- test iterate
    FF is _iterate(M,(function(V,ContinueWith(SS)) is ContinueWith(V+SS)),ContinueWith(0));
    assert FF=ContinueWith(6);
  }
}